Sampling & Re-grouping
names <- sample(c(
"John", "Jon", "Jhon", "Jonh",
"Michael", "Micheal", "Michel",
"Emily", "Emili", "Emely", "Emiley",
"Sarah", "Sara", "Sera", "Serah",
"Matthew", "Mathew", "Mathhew",
"Jessica", "Jessika", "Jesica", "Jessicah",
"Daniel", "Daniele", "Danial",
"Elizabeth", "Elisabeth", "Elisabet",
"David", "Davi", "Davide",
"Jennifer", "Jennipher", "Jenifer",
"Christopher", "Cristopher", "Christoper",
"Amanda", "Amandah", "Amandaa",
"Andrew", "Andrw", "Andew",
"Stephanie", "Stephany", "Stephaine",
"Joshua", "Josh", "Jshua"
), replace = FALSE)
group <- function(names)
{
val2=NULL
for (i in names)
{
val=agrep(i,names)
val2=c(val2,val)
}
val2=unique(val2)
return(names[val2])
}
group(names)
## [1] "Stephaine" "Stephany" "Stephanie" "Andrew" "Andew"
## [6] "Andrw" "Micheal" "Michel" "Christopher" "Christoper"
## [11] "Cristopher" "Emili" "Emiley" "Emily" "Michael"
## [16] "Jennipher" "Jshua" "Joshua" "Matthew" "Mathhew"
## [21] "Mathew" "Jonh" "John" "Josh" "Jon"
## [26] "Danial" "Daniel" "Daniele" "Sarah" "Serah"
## [31] "Sara" "Amandaa" "Amandah" "Amanda" "Elizabeth"
## [36] "Elisabeth" "Davide" "David" "Emely" "Jesica"
## [41] "Jessicah" "Jessica" "Davi" "Elisabet" "Sera"
## [46] "Jhon" "Jessika" "Jenifer" "Jennifer"